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Version: *v04-000' 


COPYRIGHT (c) 1980, 1982, 1984 BY 
DIGITAL EQUIPM Ent "EORPO RATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RES ERVED 
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THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES, THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. ® 
® 

THE INFORMATION IN THIS SOFTWARE 1S | SUBJECT TO CHANGE WITHOUT . 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQU . 
CORPORATION. ‘ 
* 
® 
® 
® 
® 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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"MACRO TO GENERATE A OFFSET LIST FOR A DATA STRUCTURE 


IT IS USEFUL FOR INPUT ARGUMENT LISTS POSITIVELY INDEXED FROM AP, AND 
WORK AREAS ALLOCATED IN CALL STACK AND NEGATIVELY INDEXED FROM FP. 


CALL: SOFFSET INITIAL,DIRECTION,<<LAB1,CSIZEJ>,...,<LABN,CSIZEJ>> 


WHERE : INITIAL_IS A REQUIRED VALUE FOR THE INTIAL INDEX WHEN 
ORIGINATING A DATA STRUCTURE DEFINITION. IT IS NORMALLY 
(+) 4 FOR ARGUMENT LISTS AND 0 FOR WORK AREAS. 


DIRECTION IS A KEYWORD THAT MUST BE: 
POSITIVE = FOR Pars Ua GROWING eu - MEMORY 
NEGATIVE = FOR STRUCTURES GROWING DOWN IN MEMORY 
OR BLANK, IN WHICH CASE ‘‘POSITIVE'' IS ASSUMED. 


I 

ST IS THE SYMBOLIC NAME FOR THE LOCATION 

IZE OF THE ELEMENT. IF BLANK, SIZE IS 
ONE LONGWORD ). 


THE LABEL, SIZE LI 
AND THE ST IONAL 3 
ASSUMED TO BE 4 ( 


TO qe) THE DEFINITION OF AN INDEFINITLY LARGE NUMBER OF LABELS, 
THE MACRO MAY BE CONTINUED. IN THIS CASE THE “‘INITIAL*’ AND 
‘DIRECTION™ ARGUMENTS MUST BE BLANK. 

ae SOFFSET INITVALUE ,DIRECTION,SYMLST 


oe SABS$ ABS 
4 INI TVALUE 
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tt ; DIRECTION MUST BE BLANK WHEN CONTINUING; 


UE 
NB DIRECTION 
N <DIRECTION>,<POSITIVE> 


ae FTE ETN ETT FT ITT Oe oe os pe ee ef) eT 
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SYM,<SYMLST> 
T1 SYM 


SnS 


- RESTORE 
-ENDM SOFFSET 


-MACRO SOFFSTI SYM,S12=4 
“ERROR yeeeee SIZ PARAMETER NEGATIVE *eeee; 
IF LT,DIR... 

BLKB -Siz 
NDC 

IF NB,SYM 
“LIST  MEB 
.NLIST MEB 

“ENDC 

GT,DIR... 
$12 


SYM: 


IF 
-BLKB 
- ENDC 

~ENDM SOFFST1 
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